home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / circle.l < prev    next >
Text File  |  2009-01-23  |  286b  |  17 lines
  1. 8000 PROC CIRCLE(RADIUS) CLOSED
  2. 8010 PI:=3.14159265
  3. 8020 PENUP 
  4. 8030 FORWARD RADIUS
  5. 8040 RIGHT 90
  6. 8045 PENDOWN 
  7. 8050 FOR ARC:=1 TO 36 DO
  8. 8060 RIGHT 5
  9. 8070 FORWARD RADIUS*PI/18
  10. 8080 RIGHT 5
  11. 8090 ENDFOR ARC
  12. 8100 PENUP 
  13. 8110 RIGHT 90
  14. 8120 FORWARD RADIUS
  15. 8130 RIGHT 180
  16. 8150 ENDPROC CIRCLE
  17.